home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The 640 MEG Shareware Studio 4
/
The 640 Meg Shareware Studio CD-ROM Volume IV (Data Express)(1994).ISO
/
clang
/
3ctrls.zip
/
FLOOD.FRM
< prev
next >
Wrap
Text File
|
1993-07-21
|
14KB
|
431 lines
VERSION 2.00
Begin Form fFlood
BackColor = &H00C0C0C0&
Caption = "Automatic resizing and flooding"
Height = 5430
Left = 1140
LinkTopic = "Form1"
ScaleHeight = 4965
ScaleWidth = 8145
Top = 1230
Width = 8325
Begin VideoSoftElastic StatusBar
Align = 2 'Align Bottom
AutoSizeChildren= 2 'Uneven Horizontally
BackColor = &H00C0C0C0&
BevelInner = 3 'Inset
BevelInnerWidth = 1
BevelOuter = 2 'Raised Outlined
BevelOuterWidth = 2
BorderWidth = 6
Caption = ""
CaptionPos = 1 'Left Center
ChildSpacing = 6
FloodColor = &H000000C0&
FloodDirection = 0 'None
FloodPercent = 0
Height = 645
Left = 0
Splitter = 0 'No
TabIndex = 1
Top = 4320
Width = 8145
Begin VideoSoftElastic VSElastic3
Align = 0 'None
AutoSizeChildren= 1 'Even Horizontally
BackColor = &H00C0C0C0&
BevelInner = 3 'Inset
BevelInnerWidth = 1
BevelOuter = 2 'Raised Outlined
BevelOuterWidth = 2
BorderWidth = 6
Caption = ""
CaptionPos = 1 'Left Center
ChildSpacing = 6
FloodColor = &H000000C0&
FloodDirection = 0 'None
FloodPercent = 0
Height = 465
Index = 1
Left = 5190
Splitter = 0 'No
TabIndex = 9
Top = 90
Width = 2865
Begin CommandButton Command1
Caption = "B"
Height = 285
Index = 9
Left = 1920
TabIndex = 12
Top = 90
Width = 855
End
Begin CommandButton Command1
Caption = "B"
Height = 285
Index = 8
Left = 1005
TabIndex = 11
Top = 90
Width = 825
End
Begin CommandButton Command1
Caption = "B"
Height = 285
Index = 7
Left = 90
TabIndex = 10
Top = 90
Width = 825
End
End
Begin VideoSoftElastic VSElastic2
Align = 0 'None
AutoSizeChildren= 1 'Even Horizontally
BackColor = &H00C0C0C0&
BevelInner = 3 'Inset
BevelInnerWidth = 1
BevelOuter = 2 'Raised Outlined
BevelOuterWidth = 0
BorderWidth = 6
Caption = ""
CaptionPos = 1 'Left Center
ChildSpacing = 6
FloodColor = &H000000C0&
FloodDirection = 0 'None
FloodPercent = 0
Height = 465
Index = 1
Left = 90
Splitter = 0 'No
TabIndex = 13
Top = 90
Width = 5010
Begin TextBox Text1
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Index = 2
Left = 90
TabIndex = 15
Text = "When the form is resized, check this text box and the B buttons."
Top = 90
Width = 4830
End
End
End
Begin VideoSoftElastic Flood
Align = 0 'None
AutoSizeChildren= 0 'None
BackColor = &H00C0C0C0&
BevelInner = 3 'Inset
BevelInnerWidth = 1
BevelOuter = 2 'Raised Outlined
BevelOuterWidth = 2
BorderWidth = 6
Caption = ""
CaptionPos = 4 'Center Center
ChildSpacing = 6
FloodColor = &H0000FF00&
FloodDirection = 4 'Down
FloodPercent = 0
Height = 3255
Index = 3
Left = 3375
Splitter = 0 'No
TabIndex = 0
Top = 855
Width = 645
End
Begin VideoSoftElastic Flood
Align = 0 'None
AutoSizeChildren= 0 'None
BackColor = &H00C0C0C0&
BevelInner = 3 'Inset
BevelInnerWidth = 1
BevelOuter = 2 'Raised Outlined
BevelOuterWidth = 2
BorderWidth = 6
Caption = ""
CaptionPos = 4 'Center Center
ChildSpacing = 6
FloodColor = &H00FF00FF&
FloodDirection = 3 'Up
FloodPercent = 0
Height = 2715
Index = 2
Left = 450
Splitter = 0 'No
TabIndex = 8
Top = 855
Width = 645
End
Begin VideoSoftElastic Flood
Align = 0 'None
AutoSizeChildren= 0 'None
BackColor = &H00C0C0C0&
BevelInner = 3 'Inset
BevelInnerWidth = 1
BevelOuter = 2 'Raised Outlined
BevelOuterWidth = 2
BorderWidth = 6
Caption = ""
CaptionPos = 4 'Center Center
ChildSpacing = 6
FloodColor = &H00FFFF00&
FloodDirection = 2 'Left
FloodPercent = 0
Height = 555
Index = 1
Left = 450
Splitter = 0 'No
TabIndex = 16
Top = 3555
Width = 2940
End
Begin VideoSoftElastic Flood
Align = 0 'None
AutoSizeChildren= 0 'None
BackColor = &H00C0C0C0&
BevelInner = 3 'Inset
BevelInnerWidth = 1
BevelOuter = 2 'Raised Outlined
BevelOuterWidth = 2
BorderWidth = 6
Caption = ""
CaptionPos = 4 'Center Center
ChildSpacing = 6
FloodColor = &H0000FFFF&
FloodDirection = 1 'Right
FloodPercent = 0
Height = 555
Index = 0
Left = 1080
Splitter = 0 'No
TabIndex = 17
Top = 855
Width = 2310
End
Begin VideoSoftElastic VSElastic1
Align = 0 'None
AutoSizeChildren= 0 'None
BackColor = &H00C0C0C0&
BevelInner = 3 'Inset
BevelInnerWidth = 1
BevelOuter = 1 'Raised
BevelOuterWidth = 2
BorderWidth = 6
Caption = "VideoSoft Elastic makes all the controls inside 3D."
CaptionPos = 3 'Center Top
ChildSpacing = 6
FloodColor = &H000000C0&
FloodDirection = 0 'None
FloodPercent = 0
ForeColor = &H00FF0000&
Height = 3135
Index = 1
Left = 4815
Splitter = 0 'No
TabIndex = 20
Top = 900
Width = 2940
Begin CommandButton Command1
Caption = "This is a regular button"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 465
Index = 10
Left = 405
TabIndex = 22
Tag = "H"
Top = 2250
Width = 2055
End
Begin TextBox Text1
Height = 915
Index = 0
Left = 360
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 21
Text = "This is a regular text box"
Top = 630
Width = 2175
End
Begin Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "This is a regular label"
ForeColor = &H00000000&
Height = 285
Index = 1
Left = 270
TabIndex = 18
Top = 1710
Width = 2400
End
End
Begin Timer Timer1
Interval = 1
Left = 4095
Top = 3600
End
Begin VideoSoftElastic Toolbar
Align = 1 'Align Top
AutoSizeChildren= 2 'Uneven Horizontally
BackColor = &H00C0C0C0&
BevelInner = 3 'Inset
BevelInnerWidth = 1
BevelOuter = 2 'Raised Outlined
BevelOuterWidth = 2
BorderWidth = 6
Caption = ""
CaptionPos = 1 'Left Center
ChildSpacing = 6
FloodColor = &H000000C0&
FloodDirection = 0 'None
FloodPercent = 0
Height = 645
Left = 0
Splitter = 0 'No
TabIndex = 2
Top = 0
Width = 8145
Begin VideoSoftElastic VSElastic2
Align = 0 'None
AutoSizeChildren= 1 'Even Horizontally
BackColor = &H00C0C0C0&
BevelInner = 3 'Inset
BevelInnerWidth = 1
BevelOuter = 2 'Raised Outlined
BevelOuterWidth = 0
BorderWidth = 6
Caption = ""
CaptionPos = 1 'Left Center
ChildSpacing = 6
FloodColor = &H000000C0&
FloodDirection = 0 'None
FloodPercent = 0
Height = 465
Index = 0
Left = 90
Splitter = 0 'No
TabIndex = 3
Top = 90
Width = 5115
Begin TextBox Text1
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Index = 1
Left = 90
TabIndex = 14
Text = "When the form is resized, check this text box and the A buttons."
Top = 90
Width = 4935
End
End
Begin VideoSoftElastic VSElastic3
Align = 0 'None
AutoSizeChildren= 1 'Even Horizontally
BackColor = &H00C0C0C0&
BevelInner = 3 'Inset
BevelInnerWidth = 1
BevelOuter = 2 'Raised Outlined
BevelOuterWidth = 2
BorderWidth = 6
Caption = ""
CaptionPos = 1 'Left Center
ChildSpacing = 6
FloodColor = &H000000C0&
FloodDirection = 0 'None
FloodPercent = 0
Height = 465
Index = 0
Left = 5295
Splitter = 0 'No
TabIndex = 4
Top = 90
Width = 2760
Begin CommandButton Command1
Caption = "A"
Height = 285
Index = 4
Left = 90
TabIndex = 7
Top = 90
Width = 795
End
Begin CommandButton Command1
Caption = "A"
Height = 285
Index = 2
Left = 975
TabIndex = 6
Top = 90
Width = 795
End
Begin CommandButton Command1
Caption = "A"
Height = 285
Index = 0
Left = 1860
TabIndex = 5
Top = 90
Width = 810
End
End
End
Begin Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Flooding with VideoSoft Elastic"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 13.5
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FF0000&
Height = 1410
Index = 0
Left = 1305
TabIndex = 19
Top = 1710
Width = 1815
End
End
Option Explicit
Sub Form_Resize ()
StatusBar.Top = 0
End Sub
Sub Timer1_Timer ()
Dim j%
Static i%
If i > 97 Then i = 0
i = i + 3
For j = 0 To 3
flood(j).FloodPercent = i
flood(j).Caption = i & "%"
Next j
End Sub